object FormImport: TFormImport Left = 302 Top = 263 HelpContext = 445 BorderIcons = [biSystemMenu] BorderStyle = bsSingle Caption = 'Import Records' ClientHeight = 444 ClientWidth = 581 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = False Position = poDesktopCenter ShowHint = True OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 13 object Panel1: TPanel Left = 0 Top = 0 Width = 581 Height = 378 Align = alTop TabOrder = 0 object Notebook1: TNotebook Left = 1 Top = 1 Width = 579 Height = 376 Align = alClient TabOrder = 0 OnPageChanged = Notebook1PageChanged object TPage Left = 0 Top = 0 Caption = 'First' object GroupBox1: TGroupBox Left = 19 Top = 14 Width = 542 Height = 57 Caption = 'File Name' Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Arial' Font.Style = [] ParentFont = False TabOrder = 0 object SpeedButton1: TSpeedButton Left = 495 Top = 21 Width = 27 Height = 24 Hint = 'Select Filename' Glyph.Data = { 42020000424D4202000000000000420000002800000010000000100000000100 1000030000000002000000000000000000000000000000000000007C0000E003 00001F0000001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C 1F7C1F7C1F7C000000000000000000000000000000000000000000001F7C1F7C 1F7C1F7C1F7C8031803140664066E03D4066E03D4066E03D4066E03D00001F7C 1F7C1F7C1F7C8031F27F80314066406640664066E03D4066E03D4066E03D0000 1F7C1F7C1F7C8031F27F207F8031406640664066406640664066E03D4066E03D 00001F7C1F7C8031F27FFF7F207F8031406640664066406640664066E03D4066 E03D00001F7C8031F27F207FFF7F207F80318031803180318031803180318031 8031803100008031F27FFF7F207FFF7F207F207F207F207F207F00001F7C1F7C 1F7C1F7C1F7C8031F27F207FFF7FF27FF27FF27FF27FF27FF27F00001F7C1F7C 1F7C1F7C1F7C8031FF7FF27F326780318031803180318031803180311F7C1F7C 1F7C1F7C1F7C1F7C8031803180311F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7CCC00 CC00CC001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C D200CC001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7CD2001F7C1F7C1F7CD200 1F7CCC001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7CD200D200D2001F7C 1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C 1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C 1F7C1F7C1F7C} OnClick = SpeedButton1Click end object EditName: TEdit Left = 17 Top = 21 Width = 478 Height = 24 Cursor = crArrow Hint = 'Click Right Button To Select Filename' ReadOnly = True TabOrder = 0 end end object GroupBox2: TGroupBox Left = 19 Top = 80 Width = 542 Height = 280 Caption = 'Records' Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Arial' Font.Style = [] ParentFont = False TabOrder = 1 object RxDBGrid1: TRxDBGrid Left = 17 Top = 22 Width = 505 Height = 243 DataSource = DataSource1 ReadOnly = True TabOrder = 0 TitleFont.Charset = ANSI_CHARSET TitleFont.Color = clWindowText TitleFont.Height = -13 TitleFont.Name = 'Arial' TitleFont.Style = [] end end end object TPage Left = 0 Top = 0 Caption = 'Second' object LabelSorrce: TLabel Left = 21 Top = 45 Width = 223 Height = 16 Alignment = taCenter AutoSize = False Caption = 'Source Database' Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label5: TLabel Left = 22 Top = 15 Width = 509 Height = 16 Caption = 'The fields in the Source Database box must match the fields in t' + 'he Target Database box' Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object btn1: TSpeedButton Left = 242 Top = 154 Width = 24 Height = 26 Hint = 'Move Up Item' Flat = True Glyph.Data = { DE000000424DDE0000000000000076000000280000000D0000000D0000000100 0400000000006800000000000000000000001000000010000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7000777777777777700077770000077770007777066607777000777706660777 7000777706660777700070000666000070007706666666077000777066666077 7000777706660777700077777060777770007777770777777000777777777777 7000} OnClick = btn1Click end object btn2: TSpeedButton Left = 242 Top = 180 Width = 24 Height = 26 Hint = 'Move Down Item' Flat = True Glyph.Data = { DE000000424DDE0000000000000076000000280000000D0000000D0000000100 0400000000006800000000000000000000001000000010000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7000777777777777700077777707777770007777706077777000777706660777 7000777066666077700077066666660770007000066600007000777706660777 7000777706660777700077770666077770007777000007777000777777777777 7000} OnClick = btn2Click end object btn3: TSpeedButton Left = 242 Top = 206 Width = 24 Height = 26 Hint = 'Delete Selected Items' Flat = True Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Arial' Font.Style = [] Glyph.Data = { 42010000424D4201000000000000760000002800000011000000110000000100 040000000000CC00000000000000000000001000000010000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 777770000000777777777777777770000000777777777777770F700000007777 0F777777777770000000777000F7777770F770000000777000F777770F777000 00007777000F77700F777000000077777000F700F7777000000077777700000F 7777700000007777777000F777777000000077777700000F7777700000007777 7000F70F7777700000007770000F77700F7770000000770000F7777700F77000 00007700F7777777700F70000000777777777777777770000000777777777777 777770000000} ParentFont = False ParentShowHint = False ShowHint = True OnClick = btn3Click end object btn4: TSpeedButton Left = 242 Top = 232 Width = 24 Height = 26 Hint = 'Refill Items' Flat = True Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Arial' Font.Style = [] Glyph.Data = { E6000000424DE60000000000000076000000280000000F0000000E0000000100 0400000000007000000000000000000000001000000000000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFF0087FFFFFFFFFFFF0B3087FFFFFFFFFFF0BB0087FF FFFFFFFF0BB3008FFFFFFFFFF0BBB008FFFFFFFFF00BBB007FFFFFFF00BBB007 FFF0FFFFF00BBB007FF0FFFFFFF00BB007F0FFFFFFFFF00B0070FFFFFFFFFFF0 00F0FFFFFFFFFFFFFFF0} ParentFont = False ParentShowHint = False ShowHint = True OnClick = btn4Click end object btn8: TSpeedButton Left = 532 Top = 236 Width = 24 Height = 26 Hint = 'Refill Items' Flat = True Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Arial' Font.Style = [] Glyph.Data = { E6000000424DE60000000000000076000000280000000F0000000E0000000100 0400000000007000000000000000000000001000000000000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFF0087FFFFFFFFFFFF0B3087FFFFFFFFFFF0BB0087FF FFFFFFFF0BB3008FFFFFFFFFF0BBB008FFFFFFFFF00BBB007FFFFFFF00BBB007 FFF0FFFFF00BBB007FF0FFFFFFF00BB007F0FFFFFFFFF00B0070FFFFFFFFFFF0 00F0FFFFFFFFFFFFFFF0} ParentFont = False ParentShowHint = False ShowHint = True OnClick = btn8Click end object btn7: TSpeedButton Left = 532 Top = 210 Width = 24 Height = 26 Hint = 'Delete Selected Items' Flat = True Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Arial' Font.Style = [] Glyph.Data = { 42010000424D4201000000000000760000002800000011000000110000000100 040000000000CC00000000000000000000001000000010000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 777770000000777777777777777770000000777777777777770F700000007777 0F777777777770000000777000F7777770F770000000777000F777770F777000 00007777000F77700F777000000077777000F700F7777000000077777700000F 7777700000007777777000F777777000000077777700000F7777700000007777 7000F70F7777700000007770000F77700F7770000000770000F7777700F77000 00007700F7777777700F70000000777777777777777770000000777777777777 777770000000} ParentFont = False ParentShowHint = False ShowHint = True OnClick = btn7Click end object btn6: TSpeedButton Left = 532 Top = 184 Width = 24 Height = 26 Hint = 'Move Down Item' Flat = True Glyph.Data = { DE000000424DDE0000000000000076000000280000000D0000000D0000000100 0400000000006800000000000000000000001000000010000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7000777777777777700077777707777770007777706077777000777706660777 7000777066666077700077066666660770007000066600007000777706660777 7000777706660777700077770666077770007777000007777000777777777777 7000} OnClick = btn6Click end object btn5: TSpeedButton Left = 532 Top = 158 Width = 24 Height = 26 Hint = 'Move Up Item' Flat = True Glyph.Data = { DE000000424DDE0000000000000076000000280000000D0000000D0000000100 0400000000006800000000000000000000001000000010000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7000777777777777700077770000077770007777066607777000777706660777 7000777706660777700070000666000070007706666666077000777066666077 7000777706660777700077777060777770007777770777777000777777777777 7000} OnClick = btn5Click end object LabelTarget: TLabel Left = 313 Top = 45 Width = 219 Height = 16 Alignment = taCenter AutoSize = False Caption = 'Target Database' Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object ListBoxTarget: TListBox Left = 312 Top = 67 Width = 221 Height = 286 Hint = 'Shift+click or Ctrl+click to select multi-field'#13#10'Right-click to ' + 'open pop menu' Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Arial' Font.Style = [] ItemHeight = 16 MultiSelect = True ParentFont = False PopupMenu = PopupMenu2 Style = lbOwnerDrawFixed TabOrder = 0 OnDrawItem = ListBoxTargetDrawItem end object ListBoxSource: TListBox Left = 22 Top = 67 Width = 221 Height = 286 Hint = 'Shift+click or Ctrl+click to select multi-field'#13#10'Right-click to ' + 'open pop menu' Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Arial' Font.Style = [] ItemHeight = 16 MultiSelect = True ParentFont = False PopupMenu = PopupMenu1 Style = lbOwnerDrawFixed TabOrder = 1 OnDrawItem = ListBoxSourceDrawItem end end end end object btnHelp: TBitBtn Left = 78 Top = 399 Width = 75 Height = 28 Caption = '&Help' Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Arial' Font.Style = [] ParentFont = False TabOrder = 1 OnClick = btnHelpClick end object btnBack: TBitBtn Left = 193 Top = 399 Width = 75 Height = 28 Caption = 'B&ack' Enabled = False Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Arial' Font.Style = [] ParentFont = False TabOrder = 2 OnClick = btnBackClick end object btnNext: TBitBtn Left = 307 Top = 399 Width = 75 Height = 28 Caption = 'N&ext' Enabled = False Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Arial' Font.Style = [] ParentFont = False TabOrder = 3 OnClick = btnNextClick end object btnCancel: TBitBtn Left = 422 Top = 399 Width = 75 Height = 28 Caption = 'Can&cel' Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Arial' Font.Style = [] ParentFont = False TabOrder = 4 OnClick = btnCancelClick end object DataSource1: TDataSource DataSet = ADOTable1 OnDataChange = DataSource1DataChange Left = 288 Top = 384 end object ADOTable1: TADOTable Connection = ADOConnection1 Left = 261 Top = 384 end object ADOConnection1: TADOConnection LoginPrompt = False OnWillConnect = ADOConnection1WillConnect Left = 233 Top = 384 end object PopupMenu1: TPopupMenu Left = 89 Top = 193 object UpaField1: TMenuItem Caption = 'Move &Up Field' OnClick = btn1Click end object DownaField1: TMenuItem Caption = 'Move &Down Field' OnClick = btn2Click end object DeleteFields1: TMenuItem Caption = 'D&elete Fields' OnClick = btn3Click end object N1: TMenuItem Caption = '-' end object RefillFields1: TMenuItem Caption = '&Refill Fields' OnClick = btn4Click end end object PopupMenu2: TPopupMenu Left = 393 Top = 209 object MenuItem1: TMenuItem Caption = 'Move &Up Field' OnClick = btn5Click end object MenuItem2: TMenuItem Caption = 'Move &Down Field' OnClick = btn6Click end object MenuItem3: TMenuItem Caption = 'D&elete Fields' OnClick = btn7Click end object N2: TMenuItem Caption = '-' end object MenuItem4: TMenuItem Caption = '&Refill Fields' OnClick = btn8Click end end end